# table a18

css4<- subset(css2, css2$elec_year<2021)
css4$nw_gen<-0
css4$nw_gen[css4$cc_seat %in% 
              c("SEATTLE CITY CNCL DIST 5","SEATTLE CITY CNCL DIST 4","SEATTLE CITY CNCL DIST 2") & css4$elec_year ==2017]<-1
css4$nw_gen[css4$cc_seat %in% 
              c("SEATTLE CITY CNCL DIST 2","SEATTLE CITY CNCL DIST 3","SEATTLE CITY CNCL DIST 5") & css4$elec_year ==2015]<-1
css4$nwgen_white<- paste0(css4$nw_gen, css4$iswhiteperson)
css4<- subset(css4, !is.na(css4$iswhiteperson))
qqq1_3<- felm(part~nwgen_white*voucher_yr|as.factor(id)+as.factor(elec_year)|0|0 , data=css4)
summary(qqq1_3, robust=T) # col 1


css4<- css2
css4$nw_gen<-0
css4$nw_gen[css4$cc_seat %in% 
              c("SEATTLE CITY CNCL DIST 5","SEATTLE CITY CNCL DIST 4","SEATTLE CITY CNCL DIST 2") & css4$elec_year ==2017]<-1
css4$nw_gen[css4$cc_seat %in% 
              c("SEATTLE CITY CNCL DIST 2","SEATTLE CITY CNCL DIST 3","SEATTLE CITY CNCL DIST 5") & css4$elec_year ==2015]<-1
css4$nw_gen[css4$elec_year==2021]<-1
css4$nwgen_white<- paste0(css4$nw_gen, css4$iswhiteperson)
css4<- subset(css4, !is.na(css4$iswhiteperson))
qqq1_3a<- felm(part~nwgen_white*voucher_yr|as.factor(id)+as.factor(elec_year)|0|0 , data=css4)
summary(qqq1_3a, robust=T) # col 2
